home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #10 / Commodore_Disk_User_Vol.3_10_1990_-.d64 / sec v3.00 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  54 lines
  1. 100 poke53280,0:poke53281,0:poke 650,128:print"[147]":print chr$(14)
  2. 110 print"[159]             [211]ecurity [214]2.00[157][157][157][157][157][157][157][157][157][157][157][157][157][157][158][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 200 print"      [208]lease enter the time [200][200][205][205][211][211][157][157][157][157][157][157]";
  4. 300 for x = 1 to 6
  5. 400 get a$(x):if a$(x)=""then goto 400
  6. 500 ifasc(a$(x))<48orasc(a$(x))>57 then goto 400
  7. 600 print a$(x);
  8. 700 next x
  9. 800 t$=a$(1)+a$(2)+a$(3)+a$(4)+a$(5)+a$(6)
  10. 900 if val(t$)>235959orval(t$)<000000orlen(t$)<>6 then goto 200
  11. 1000 if  val(left$(t$,2))>23then goto 200
  12. 1100 if val(mid$(t$,3,2))>59then print "[201]nvalid time!":goto 200
  13. 1200 if val(right$(t$,2))>59then goto 200
  14. 1250 print:print"       [208]ress a key to start clock."
  15. 1260 get l$:if l$ = "" then goto 1260
  16. 1300 ti$=t$
  17. 1310 print
  18. 1400 print tab(16)"[212]ime set.":for x = 1 to 2000:next x:print"[147]"
  19. 1500 print"[208]lug the wire into port #1 and close    the door.";
  20. 1700 if peek(145)=255 then goto 1700
  21. 1800 print"[147][196]oor shut. [211]canning.........":open 1,8,1,"prgstrt @ "+ti$+",u"
  22. 1900 close 1
  23. 2000 ifpeek(145)=247thengoto2200
  24. 2100 goto 3300
  25. 2200 ifpeek(56320)=111then goto 2400
  26. 2300 goto 2000
  27. 2400 print"[208]ressure pad depressed at ";ti$:open 1,8,1,"prespad @ "+ti$+",u"
  28. 2500 close 1
  29. 2600 if peek(56320)=111thengoto 2600
  30. 2700 goto 2000
  31. 2800 rem
  32. 2900 rem *******************************
  33. 3000 rem *           check!            *
  34. 3100 rem *******************************
  35. 3200 rem
  36. 3300 b = b + 1
  37. 3400 q$=ti$
  38. 3450 ifpeek(145)=247thenw=val(ti$)-val(q$):goto 4000
  39. 3500 print"[194]reak in no.";b;" started at ";q$
  40. 3600 open 1,8,1,"brkin"+str$(b)+" @ "+ti$+",u"
  41. 3700 close 1
  42. 3800 ifpeek(145)=247thenprint"[193]nd finished at ";ti$:w=val(ti$)-val(q$):goto 4400
  43. 3900 ifpeek(56320)=111then goto 4100
  44. 4000 goto 3800
  45. 4100 print"[208]ressure pad depressed at ";ti$:open1,8,1,"prespad @ "+ti$+",u":close1
  46. 4200 if peek(56320)=111thengoto 4200
  47. 4300 goto 3800
  48. 4400 print"[204]ength of break in was ";w
  49. 4500 open 1,8,1,"brend"+str$(b)+" @ "+ti$+",u":goto4900
  50. 4600 goto 4800
  51. 4700 print"[204]ength of break in was ";w:goto4500
  52. 4800 goto 3800
  53. 4900 close 1:goto 2000
  54.